home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_08 / fitton / sourcecode / message01 < prev   
Encoding:
Text File  |  1988-04-02  |  922 b   |  3 lines
  1.  
  2. u0ô > &.SourceCode.Message01
  3. u:'ô Author               : G L Fitton
  4. uD-ô Copyright            : ABABCUS TRAINING
  5. uN,ô Version 1.00         : 31st March 1988
  6. uX:
  7. ub:
  8. ul:ô The source code for a simple machine code programme.
  9. uv:
  10. u€Þ code% &200
  11. u⇩!endofcode%=¤_Message01(code%)
  12. u“Bÿ("SAVE &.ObjectCode.Message01 "+Ã~(code%)+" "+Ã~(endofcode%))
  13. ufi+*SETTYPE    &.ObjectCode.Message01 &FFC
  14. u¨&*STAMP      &.ObjectCode.Message01
  15. u²à
  16. u¼:
  17. uÆ:
  18. uÐÝ ¤_Message01(start%)
  19. uÚ:
  20. uäê sp,pass%
  21. uî
  22. ê code
  23. uø:
  24. v:
  25. v ê Ŷ
  26. v/î Ŷ ÿ("FX 3,0"):ï 26,12:ö:ñ " at line ";fi:ú
  27. v :
  28. v*ô Use the BASIC stack.
  29. v4&sp         = 13  :ô Stack pointer.
  30. v>:
  31. vHã pass% = 0 ¸ 3 ⇦ 3
  32. vR
  33. P%=start%
  34. v\[OPT pass%
  35. vf    .code
  36. vpSTMFD (sp)!,{R0-R12,R14}
  37. vzSWI "XOS_NewLine"
  38. v☓SWI "XOS_WriteS"
  39. v‰DEQUS "Watch this space.    ................................    "
  40. v—
  41. EQUB 0
  42. v¢    ALIGN
  43. v¬SWI "XOS_NewLine"
  44. v¶LDMFD (sp)!,{R0-R12,PC}
  45. vÀ]
  46. vÊ í pass%
  47. vÔ=P%
  48. ÿ